home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / Personal Paint v4.0 (1994)(Cloanto)(M3)(Disk 1 of 2)[WB].7z / Personal Paint v4.0 (1994)(Cloanto)(M3)(Disk 1 of 2)[WB].adf / InstallPPaint < prev    next >
Encoding:
Text File  |  1993-12-03  |  13.7 KB  |  551 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. ; Install Script Copyright (C) Cloanto Italia 1992, 1993
  6. ; Cloanto, Personal Paint, PPaint  (R), (TM) Cloanto Italia
  7. ; All Rights Reserved - Reproduction Prohibited
  8.  
  9. ; We know some of you prefer other installers. But this one is
  10. ; truly multilingual, works with all operating systems and fits
  11. ; on the disk. If you have any suggestions, please let us know.
  12.  
  13. If NOT EXISTS RAM:IPT
  14.   MakeDir RAM:IPT
  15.   EndIf
  16.  
  17. If NOT EXISTS RAM:t
  18.   MakeDir RAM:t
  19.   EndIf
  20.  
  21. If EXISTS C:Copy
  22.   Copy >NIL: C:Copy RAM:IPT
  23.   EndIf
  24.  
  25. CD RAM:IPT
  26.  
  27. If EXISTS C:If
  28.   Copy >NIL: C:If RAM:IPT
  29.   EndIf
  30. If EXISTS C:EndIf
  31.   Copy >NIL: C:EndIf RAM:IPT
  32.   EndIf
  33. If EXISTS C:Execute
  34.   Copy >NIL: C:Execute RAM:IPT
  35.   EndIf
  36. If EXISTS C:Assign
  37.   Copy >NIL: C:Assign RAM:IPT
  38.   EndIf
  39.  
  40. Assign >NIL: PPaint:
  41.  
  42. Assign >NIL: PPaint: EXISTS
  43. If WARN
  44.    Assign >NIL: " PPaint:" EXISTS
  45.    If NOT WARN
  46.       Assign PPaint: " PPaint:"
  47.       EndIf
  48.    Assign >NIL: "Copy of PPaint:" EXISTS
  49.    If NOT WARN
  50.       Assign PPaint: "Copy of PPaint:"
  51.       EndIf
  52.    Assign >NIL: Copy_of_PPaint: EXISTS
  53.    If NOT WARN
  54.       Assign PPaint: Copy_of_PPaint:
  55.       EndIf
  56.    EndIf
  57.  
  58. Assign >NIL: PPaint: EXISTS
  59. If WARN
  60.    Echo "Error: InstallPPaint can only be run from *"PPaint*" disk."
  61.    Wait 3 SECS
  62.    Skip End2
  63.    EndIf
  64.  
  65. Copy PPaint:c/Print RAM:IPT
  66.  
  67. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  68.   Print "Disk is not configured: default configuration in progress."
  69.   Execute PPaint:English
  70.   CD RAM:IPT
  71.   EndIf
  72.  
  73. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  74.   Execute PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  75.   EndIf
  76.  
  77. If NOT EXISTS PLT_trlkll
  78.   Print "Error during install."
  79.   Wait 3 SECS
  80.   Skip End2
  81.   EndIf
  82.  
  83. If EXISTS C:CD
  84.   Copy >NIL: C:CD RAM:IPT
  85.   EndIf
  86. If EXISTS C:Else
  87.   Copy >NIL: C:Else RAM:IPT
  88.   EndIf
  89. If EXISTS C:Lab
  90.   Copy >NIL: C:Lab RAM:IPT
  91.   EndIf
  92. If EXISTS C:Skip
  93.   Copy >NIL: C:Skip RAM:IPT
  94.   EndIf
  95. If EXISTS C:Delete
  96.   Copy >NIL: C:Delete RAM:IPT
  97.   Copy >NIL: C:Delete RAM:t
  98.   EndIf
  99. If EXISTS C:MakeDir
  100.   Copy >NIL: C:MakeDir RAM:IPT
  101.   EndIf
  102. If EXISTS C:Wait
  103.   Copy >NIL: C:Wait RAM:IPT
  104.   EndIf
  105.  
  106. Copy PPaint:c/CAsk RAM:IPT
  107. Copy PPaint:c/CopyIcon RAM:IPT
  108. Copy PPaint:c/ShowPath RAM:IPT
  109. Copy PPaint:PPaint_Tools/AskAssign RAM:IPT
  110. If EXISTS PPaint:c/Deplode
  111.   Copy PPaint:c/Deplode RAM:IPT
  112.   EndIf
  113.  
  114. Version >NIL: graphics.library 36
  115. If WARN
  116.   Copy PPaint:PPaint_Icons_1/def_#?.info RAM:IPT CLONE QUIET
  117. Else
  118.   Copy PPaint:PPaint_Icons_2/def_#?.info RAM:IPT CLONE QUIET
  119. EndIf
  120.  
  121. Print PLT_title
  122.  
  123. ; PWrite, C1-Text, PFM trademarks of Cloanto Italia
  124. ; DPaintV, DPaintIV, DeluxePaintIII, ADPRO trademarks of respective owners
  125.  
  126. Assign >NIL: PWrite: EXISTS
  127. If NOT WARN
  128.   Assign INTELLASSIGN: PWrite:
  129.   EndIf
  130. Assign >NIL: C1-Text: EXISTS
  131. If NOT WARN
  132.   Assign INTELLASSIGN: C1-Text:
  133.   EndIf
  134. Assign >NIL: PFM: EXISTS
  135. If NOT WARN
  136.   Assign INTELLASSIGN: PFM:
  137.   EndIf
  138. Assign >NIL: ADPRO: EXISTS
  139. If NOT WARN
  140.   Assign INTELLASSIGN: ADPRO:
  141.   EndIf
  142. Assign >NIL: DeluxePaintIII: EXISTS
  143. If NOT WARN
  144.   Assign INTELLASSIGN: DeluxePaintIII:
  145.   EndIf
  146. Assign >NIL: DPaintIV: EXISTS
  147. If NOT WARN
  148.   Assign INTELLASSIGN: DPaintIV:
  149.   EndIf
  150. Assign >NIL: DPaintV: EXISTS
  151. If NOT WARN
  152.   Assign INTELLASSIGN: DPaintV:
  153.   EndIf
  154.  
  155. Assign >NIL: INTELLASSIGN: EXISTS
  156. If NOT WARN
  157.   CD INTELLASSIGN:
  158.   CD >NIL: /
  159.   Assign INTELLASSIGN:
  160. Else
  161.   Assign >NIL: Work: EXISTS
  162.   If NOT WARN
  163.     CD Work:
  164.   Else
  165.     Assign >NIL: DH1: EXISTS
  166.     If NOT WARN
  167.       CD DH1:
  168.     Else
  169.       CD PPaint:
  170.     EndIf
  171.   EndIf
  172. EndIf
  173.  
  174. Assign IFONTS:
  175.  
  176. Execute RAM:IPT/PLC_ipath
  177.  
  178. If NOT WARN
  179.  
  180.  CD RAM:IPT
  181.  
  182.  Lab Questions
  183.  
  184.  Print >I1 ";"
  185.  Print >I2 ";"
  186.  Print >PP_WriteOK ";"
  187.  
  188.  Print PLT_askprg
  189.  CAsk -y "*e[31m ?"
  190.  If WARN
  191.    Print >>I1 "Print PLT_infppp"
  192.    Print >>I1 "If EXISTS MEMO_DEC"
  193.    Print >>I1 "  Deplode >NIL: PPaint:PPaint IPPAINT:PPaint"
  194.    Print >>I1 "Else"
  195.    Print >>I1 "  Copy PPaint:PPaint IPPAINT: CLONE"
  196.    Print >>I1 "EndIf"
  197.    Print >>I1 "CopyIcon >NIL: -r def_PPaint IPPAINT:PPaint"
  198.    Print >>I1 "Print *"OK*""
  199.  
  200.    If NOT EXISTS IPPAINT:PPaint_Icons_1
  201.      Print >>I1 "MakeDir IPPAINT:PPaint_Icons_1"
  202.    EndIf
  203.    If NOT EXISTS IPPAINT:PPaint_Icons_2
  204.      Print >>I1 "MakeDir IPPAINT:PPaint_Icons_2"
  205.    EndIf
  206.    If NOT EXISTS IPPAINT:PPaint_Prefs
  207.      Print >>I1 "MakeDir IPPAINT:PPaint_Prefs"
  208.    EndIf
  209.    If NOT EXISTS IPPAINT:Pictures
  210.      Print >>I1 "MakeDir IPPAINT:Pictures"
  211.    EndIf
  212.    If NOT EXISTS IPPAINT:Brushes
  213.      Print >>I1 "MakeDir IPPAINT:Brushes"
  214.    EndIf
  215.    If NOT EXISTS IPPAINT:Colors
  216.      Print >>I1 "MakeDir IPPAINT:Colors"
  217.    EndIf
  218.    If NOT EXISTS IPPAINT:Stencils
  219.      Print >>I1 "MakeDir IPPAINT:Stencils"
  220.    EndIf
  221.    If NOT EXISTS IPPAINT:fonts
  222.      Print >>I1 "MakeDir > NIL: IPPAINT:fonts"
  223.    EndIf
  224.    If NOT EXISTS IPPAINT:PPaint_Tools
  225.      Print >>I1 "MakeDir > NIL: IPPAINT:PPaint_Tools"
  226.    EndIf
  227.    Print > MEMO_DEFDIRS ";"
  228.  
  229.    Print >>I1 "Print PLT_inficn"
  230.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Icons_1"
  231.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Icons_2"
  232.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Tools"
  233.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Prefs"
  234.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Pictures"
  235.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Colors"
  236.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Brushes"
  237.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Stencils"
  238.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Brush.info IPPAINT:PPaint_Icons_1 CLONE"
  239.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Stencil.info IPPAINT:PPaint_Icons_1 CLONE"
  240.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Picture.info IPPAINT:PPaint_Icons_1 CLONE"
  241.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Palette.info IPPAINT:PPaint_Icons_1 CLONE"
  242.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Settings.info IPPAINT:PPaint_Icons_1 CLONE"
  243.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Drawer.info IPPAINT:PPaint_Icons_1 CLONE"
  244.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Brush.info IPPAINT:PPaint_Icons_2 CLONE"
  245.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Stencil.info IPPAINT:PPaint_Icons_2 CLONE"
  246.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Picture.info IPPAINT:PPaint_Icons_2 CLONE"
  247.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Palette.info IPPAINT:PPaint_Icons_2 CLONE"
  248.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Settings.info IPPAINT:PPaint_Icons_2 CLONE"
  249.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Drawer.info IPPAINT:PPaint_Icons_2 CLONE"
  250.    Print >>I1 "Print *"OK*""
  251.  
  252.    Print >>I1 "Print PLT_infuit"
  253.    Print >>I1 "Copy PPaint:PPaint_Prefs/UIText.#? IPPAINT:PPaint_Prefs CLONE QUIET"
  254.    Print >>I1 "CopyIcon >NIL: -r def_UIText IPPAINT:PPaint_Prefs/UIText.#?"
  255.    Print >>I1 "Print *"OK*""
  256.  
  257.    Print >>I1 "Print PLT_infprf"
  258.    Print >>I1 "Copy PPaint:PPaint_Prefs/Startup_#? IPPAINT:PPaint_Prefs CLONE QUIET"
  259.    Print >>I1 "CopyIcon >NIL: -r def_Settings IPPAINT:PPaint_Prefs/Startup_1.set"
  260.    Print >>I1 "CopyIcon >NIL: -r def_Settings IPPAINT:PPaint_Prefs/Startup_2.set"
  261.    Print >>I1 "Copy PPaint:PPaint_Prefs/UIColors.#? IPPAINT:PPaint_Prefs CLONE QUIET"
  262.    Print >>I1 "CopyIcon >NIL: -r def_Brush IPPAINT:PPaint_Prefs/UIColors.#?"
  263.    Print >>I1 "Print *"OK*""
  264.  
  265.    Print >>I1 "Print PLT_infcol"
  266.    Print >>I1 "Copy >NIL: PPaint:Colors IPPAINT:Colors ALL CLONE QUIET"
  267.    Print >>I1 "CopyIcon >NIL: -r def_Palette IPPAINT:Colors/#?"
  268.    Print >>I1 "Print *"OK*""
  269.  
  270.    Print >>I1 "Print PLT_inffn1"
  271.    Print >>I1 "Copy PPaint:fonts/Personal.font IPPAINT:fonts CLONE"
  272.    Print >>I1 "Copy PPaint:fonts/Personal IPPAINT:fonts/Personal ALL CLONE QUIET"
  273.    Assign >NIL: FONTS: EXISTS
  274.    If NOT WARN
  275.      Print >>I1 "If EXISTS MEMO_FF"
  276.      Print >>I1 "  Copy PPaint:fonts/Personal.font FONTS: CLONE"
  277.      Print >>I1 "  Copy PPaint:fonts/Personal FONTS:Personal ALL CLONE QUIET"
  278.      Print >>I1 "EndIf"
  279.      Print > MEMO_FF ";1"
  280.    EndIf
  281.    Print >>I1 "Print *"OK*""
  282.  
  283.    Print >>I1 "Print PLT_infaud"
  284.    Print >>I1 "Copy >NIL: PPaint:CloantoAudio DEVS: CLONE"
  285.    Print >>I1 "Print *"OK*""
  286.  
  287.    Print >>I1 "Print PLT_infman"
  288.    Print >>I1 "Copy PPaint:PPaint.man IPPAINT: CLONE"
  289.    Print >>I1 "CopyIcon >NIL: -r def_PPaint.man IPPAINT:PPaint.man"
  290.    Print >>I1 "Print *"OK*""
  291.  
  292.    Print >>I1 "Print PLT_infps"
  293.    Print >>I1 "Copy PPaint:PPaint_PS IPPAINT: CLONE"
  294.    Print >>I1 "CopyIcon >NIL: -r def_PPaint_PS IPPAINT:PPaint_PS"
  295.    Print >>I1 "Print *"OK*""
  296.  
  297.    Print >>I1 "Print PLT_inftls"
  298.    Print >>I1 "Copy PPaint:PPaint_Tools IPPAINT:PPaint_Tools ALL CLONE QUIET"
  299.    Print >>I1 "CopyIcon >NIL: -r def_AskAssign IPPAINT:PPaint_Tools/AskAssign"
  300.    Print >>I1 "Print *"OK*""
  301.  
  302.    Version >NIL: graphics.library 36
  303.    If NOT WARN
  304.      Copy PPaint:PPaint_Prefs/II IPPAINT: ALL CLONE QUIET
  305.    EndIf
  306.  
  307.  EndIf
  308.  
  309.  If EXISTS SYS:Classes/DataTypes
  310.    If EXISTS DEVS:DataTypes
  311.      Version >NIL: graphics.library 39
  312.      If NOT WARN
  313.        Print PLT_askjpg
  314.        CAsk "*e[31m ?"
  315.        If WARN
  316.          Print > MEMO_JPEG ";"
  317.          Print >>I1 "Print PLT_infjpg"
  318.          Print >>I1 "Copy >NIL: PPaint:JPEG/Devs/DataTypes/#? DEVS:DataTypes ALL CLONE QUIET"
  319.          Print >>I1 "Copy >NIL: PPaint:JPEG/Classes/DataTypes/#? SYS:Classes/DataTypes ALL CLONE QUIET"
  320.          Print >>I1 "Print *"OK*""
  321.        EndIf
  322.      EndIf
  323.    EndIf
  324.  EndIf
  325.  
  326.  If EXISTS DEVS:Printers
  327.    Print PLT_askhpd
  328.    CAsk "*e[31m ?"
  329.    If WARN
  330.      Print >>I1 "Print PLT_infhpd"
  331.      Print >>I1 "Copy >NIL: PPaint:HP_DeskJet/Devs/Printers/#? DEVS:Printers ALL CLONE QUIET"
  332.      Print >>I1 "Print *"OK*""
  333.    EndIf
  334.  EndIf
  335.  
  336.  Print PLT_askfn1
  337.  CAsk "*e[31m ?"
  338.  If WARN
  339.    Assign >NIL: FONTS: EXISTS
  340.    If NOT WARN
  341.      Print >>I1 "If EXISTS MEMO_FF"
  342.      Print >>I1 "  Print PLT_inffn2"
  343.      Print >>I1 "  Copy >NIL: PPaint:fonts FONTS: ALL CLONE QUIET"
  344.      Print >>I1 "  Print *"OK*""
  345.      Print >>I1 "EndIf"
  346.      Print > MEMO_FF ";2"
  347.    EndIf
  348.  Else
  349.    Print PLT_askfn2
  350.    CAsk "*e[31m ?"
  351.    If WARN
  352.      Print > MEMO_NOBACK ";"
  353.      CD IPPAINT:
  354.      Execute RAM:IPT/PLC_fpath
  355.      If NOT WARN
  356.        CD RAM:IPT
  357.        Print >>I1 "Print PLT_inffn2"
  358.        Print >>I1 "Copy PPaint:fonts IFONTS: ALL CLONE QUIET"
  359.        Print >>I1 "Print *"OK*""
  360.      EndIf
  361.      CD RAM:IPT
  362.    EndIf
  363.  EndIf
  364.  
  365.  Print PLT_askpc1
  366.  CAsk "*e[31m ?"
  367.  If WARN
  368.    Print > MEMO_PICS ";"
  369.    Print >>I2 "Copy >NIL: PPaint:Pictures IPPAINT:Pictures ALL CLONE QUIET"
  370.  EndIf
  371.  
  372.  Print PLT_askpc2
  373.  CAsk "*e[31m ?"
  374.  If WARN
  375.    Print > MEMO_PICS ";"
  376.    Print >>I2 "Copy >NIL: PPaint_2:Pictures IPPAINT:Pictures ALL CLONE QUIET"
  377.  EndIf
  378.  
  379.  If EXISTS MEMO_PICS
  380.  Print >>I1 "Print PLT_infpic"
  381.    If NOT EXISTS IPPAINT:Pictures
  382.      If NOT EXISTS MEMO_DEFDIRS
  383.        Print >>I1 "MakeDir IPPAINT:Pictures"
  384.        Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Pictures"
  385.      EndIf
  386.    EndIf
  387.    Print >>I2 "CopyIcon >NIL: -r def_Picture IPPAINT:Pictures/#?"
  388.    Print >>I2 "Print *"OK*""
  389.  EndIf
  390.  
  391.  If EXISTS Deplode
  392.    Print PLT_askdec
  393.    CAsk "*e[31m ?"
  394.    If WARN
  395.      Print > MEMO_DEC ";"
  396.    EndIf
  397.  EndIf
  398.  
  399.  Print ""
  400.  Print PLT_askok
  401.  CAsk -y "*e[31m ?"
  402.  If NOT WARN
  403.    If EXISTS MEMO_NOBACK
  404.      Skip End1
  405.    EndIf
  406.    Print PLT_title
  407.    Print PLT_askrep
  408.    CAsk -y "*e[31m ?"
  409.    If WARN
  410.      If EXISTS MEMO_DEFDIRS
  411.        Delete MEMO_DEFDIRS QUIET
  412.      EndIf
  413.      If EXISTS MEMO_FF
  414.        Delete MEMO_FF QUIET
  415.      EndIf
  416.      If EXISTS MEMO_JPEG
  417.        Delete MEMO_JPEG QUIET
  418.      EndIf
  419.      If EXISTS MEMO_PICS
  420.        Delete MEMO_PICS QUIET
  421.      EndIf
  422.      If EXISTS MEMO_DEC
  423.        Delete MEMO_DEC QUIET
  424.      EndIf
  425.      Print PLT_title
  426.      Skip Questions BACK
  427.    Else
  428.      Skip End1
  429.    EndIf
  430.  EndIf
  431.  
  432.  Print PLT_title
  433.  Print PLT_infbeg
  434.  ShowPath -f IPPAINT:
  435.  Print "*e[33m"
  436.  
  437.  If EXISTS MEMO_FF
  438.    Copy >NIL: PP_WriteOK FONTS:
  439.    If EXISTS FONTS:PP_WriteOK
  440.      Delete >NIL: FONTS:PP_WriteOK
  441.      If EXISTS SYS:System/FixFonts
  442.        Copy >NIL: SYS:System/FixFonts RAM:IPT
  443.        Print >>I2 "Print PLT_inffix"
  444.        Print >>I2 "FixFonts"
  445.        Print >>I2 "Print *"OK*""
  446.      EndIf
  447.    Else
  448.      Delete MEMO_FF QUIET
  449.    EndIf
  450.  EndIf
  451.  
  452.  CopyIcon >NIL: def_Drawer IPPAINT: 1 1 405 195
  453.  
  454.  Execute I1
  455.  Execute I2
  456.  Wait 2 SECS
  457.  
  458.  Print PLT_title
  459.  Print N "*e[31;1m"
  460.  Print PLT_infend
  461.  Print "*e[0m*N"
  462.  Print PLT_trladd
  463.  Print N "*N*e[33m          Assign PPaint: "
  464.  ShowPath IPPAINT:
  465.  Print "*e[31m"
  466.  Print PLT_trlfl1
  467.  Print PLT_trlfl2
  468.  
  469.  Assign >NIL: S: EXISTS
  470.  If NOT WARN
  471.    Print ""
  472.  
  473.    Print PLT_askust
  474.    CAsk -y "*e[31m ?"
  475.    If WARN
  476.      Copy >NIL: PP_WriteOK S:
  477.      If EXISTS S:PP_WriteOK
  478.        If NOT EXISTS S:user-startup
  479.          Print >S:user-startup "; BEGIN Personal Paint"
  480.        Else
  481.          Print >>S:user-startup "*N; BEGIN Personal Paint"
  482.        EndIf
  483.        Print >>S:user-startup "Assign >NIL: PPAINT: EXISTS"
  484.        Print >>S:user-startup N "If NOT WARN*N  Failat 21*N  EndIf*NAssign >NIL: PPAINT: "
  485.        ShowPath >>S:user-startup IPPAINT:
  486.        Print >>S:user-startup "; END Personal Paint"
  487.        Delete >NIL: S:PP_WriteOK
  488.      EndIf
  489.    EndIf
  490.  
  491.    If EXISTS MEMO_JPEG
  492.      Print PLT_askjst
  493.      CAsk -y "*e[31m ?"
  494.      If WARN
  495.        Copy >NIL: PP_WriteOK S:
  496.        If EXISTS S:PP_WriteOK
  497.          Assign >NIL: T: EXISTS
  498.          If NOT WARN
  499.            CD T:
  500.          EndIf
  501.          Execute RAM:IPT/PLC_jpath
  502.          If NOT WARN
  503.            CD RAM:IPT
  504.            If NOT EXISTS S:user-startup
  505.              Print >S:user-startup "; BEGIN PPaint JPEG"
  506.            Else
  507.              Print >>S:user-startup "*N; BEGIN PPaint JPEG"
  508.            EndIf
  509.            Print >>S:user-startup "Assign >NIL: JPEGTMP: EXISTS"
  510.            Print >>S:user-startup N "If NOT WARN*N  Failat 21*N  EndIf*NAssign >NIL: JPEGTMP: "
  511.            ShowPath >>S:user-startup JPEGTMP:
  512.            Print >>S:user-startup "; END PPaint JPEG"
  513.          EndIf
  514.          CD RAM:IPT
  515.          Delete >NIL: S:PP_WriteOK
  516.        EndIf
  517.      EndIf
  518.    EndIf
  519.  
  520.  EndIf
  521.  
  522.  Assign >NIL: IFONTS: EXISTS
  523.  If NOT WARN
  524.    Print ""
  525.    Print PLT_trlfnt
  526.    ShowPath IFONTS:
  527.    Print "*e[31m"
  528.  EndIf
  529.  
  530.  Lab End1
  531.  
  532.  Assign IPPAINT:
  533.  Assign IFONTS:
  534.  
  535.  Wait 1 SECS
  536.  Print ""
  537.  Print PLT_askend
  538.  CAsk ""
  539.  
  540. Else
  541.  CD RAM:IPT
  542.  Print N "*e[31;1m"
  543.  Print PLT_trlkll
  544.  Wait 3 SECS
  545. EndIf
  546.  
  547. Lab End2
  548. CD RAM:t
  549. Delete > NIL: RAM:IPT ALL QUIET
  550. Delete > NIL: Delete
  551.